home *** CD-ROM | disk | FTP | other *** search
/ Die Ultimative Software-P…i Collection 1996 & 1997 / Die Ultimative Software-Pakete CD-ROM fur Atari Collection 1996 & 1997.iso / m / magazin / straight.2 / basic / p_q / ptsin.lst < prev    next >
Encoding:
File List  |  1996-09-18  |  826 b   |  39 lines
  1. PRINT " PTSIN  Beispiel     "             ! 2/92
  2. '
  3. IF XBIOS(4)=0 THEN
  4.   ALERT 3," Bitte in mittlere | Auflösung umschalten ",1,"STOP",var
  5.   END
  6. ENDIF
  7. IF XBIOS(4)=1 THEN
  8.   farbe%=2
  9. ELSE
  10.   farbe%=1
  11. ENDIF
  12. '
  13. ALERT 3,"      PTSIN/PTSOUT   |   ermitteln Adressen     | der VDI Parameterblöcke ",1,"ENTER",a
  14. '
  15. CLS
  16. PRINT " Zuerst machen wir das mit PCIRCLE"
  17. PCIRCLE 320,200,190
  18. PRINT AT(2,24);" nach Klick mit PTSIN......"
  19. maus_taste_abfrage
  20. CLS
  21. PRINT " PTSIN() liefert die Adresse des VDI Punktkoordinaten-Input-Feldes"
  22. PTSIN(0)=320
  23. PTSIN(1)=200
  24. PTSIN(2)=190
  25. VDISYS 11,0,2,4
  26. GOSUB maus_taste_abfrage
  27. EDIT
  28. > PROCEDURE maus_taste_abfrage
  29.   PAUSE 5
  30.   RBOX 528,374,630,398
  31.   RBOX 529,375,630,396
  32.   RBOX 530,375,630,397
  33.   TEXT 538,390,""
  34.   DO
  35.     EXIT IF MOUSEK<>0 OR LEN(INKEY$)
  36.   LOOP
  37.   CLS
  38. RETURN
  39.